/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / prim / find-func.elc.z / find-func.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 33 3a 35 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:53:59 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 72 69 6d |s-20.3/l|isp/prim|
|000000a0| 2f 66 69 6e 64 2d 66 75 | 6e 63 2e 65 6c 0a 3b 3b |/find-fu|nc.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 66 69 6e 64 2d |  (error| "`find-|
|000001f0| 66 75 6e 63 2e 65 6c 27 | 20 77 61 73 20 63 6f 6d |func.el'| was com|
|00000200| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|00000210| 32 30 22 29 29 0a 0a 28 | 6f 72 20 28 62 6f 75 6e |20"))..(|or (boun|
|00000220| 64 70 20 27 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |dp 'curr|ent-load|
|00000230| 2d 6c 69 73 74 29 20 28 | 73 65 74 71 20 63 75 72 |-list) (|setq cur|
|00000240| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6e |rent-loa|d-list n|
|00000250| 69 6c 29 29 0a 0a 0a 28 | 63 75 73 74 6f 6d 2d 64 |il))...(|custom-d|
|00000260| 65 63 6c 61 72 65 2d 67 | 72 6f 75 70 20 27 66 69 |eclare-g|roup 'fi|
|00000270| 6e 64 2d 66 75 6e 63 74 | 69 6f 6e 20 6e 69 6c 20 |nd-funct|ion nil |
|00000280| 22 46 69 6e 64 20 74 68 | 65 20 64 65 66 69 6e 69 |"Find th|e defini|
|00000290| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 45 6d 61 63 |tion of |the Emac|
|000002a0| 73 20 4c 69 73 70 20 66 | 75 6e 63 74 69 6f 6e 20 |s Lisp f|unction |
|000002b0| 6e 65 61 72 20 70 6f 69 | 6e 74 2e 22 20 3a 67 72 |near poi|nt." :gr|
|000002c0| 6f 75 70 20 27 6c 69 73 | 70 29 0a 28 63 75 73 74 |oup 'lis|p).(cust|
|000002d0| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|000002e0| 62 6c 65 20 27 66 69 6e | 64 2d 66 75 6e 63 74 69 |ble 'fin|d-functi|
|000002f0| 6f 6e 2d 73 6f 75 72 63 | 65 2d 70 61 74 68 20 27 |on-sourc|e-path '|
|00000300| 6e 69 6c 20 22 54 68 65 | 20 64 65 66 61 75 6c 74 |nil "The| default|
|00000310| 20 6c 69 73 74 20 6f 66 | 20 64 69 72 65 63 74 6f | list of| directo|
|00000320| 72 69 65 73 20 77 68 65 | 72 65 20 66 69 6e 64 2d |ries whe|re find-|
|00000330| 66 75 6e 63 74 69 6f 6e | 20 73 65 61 72 63 68 65 |function| searche|
|00000340| 73 2e 5c 6e 5c 6e 49 66 | 20 74 68 69 73 20 76 61 |s.\n\nIf| this va|
|00000350| 72 69 61 62 6c 65 20 69 | 73 20 60 6e 69 6c 27 20 |riable i|s `nil' |
|00000360| 74 68 65 6e 20 66 69 6e | 64 2d 66 75 6e 63 74 69 |then fin|d-functi|
|00000370| 6f 6e 20 73 65 61 72 63 | 68 65 73 20 60 6c 6f 61 |on searc|hes `loa|
|00000380| 64 2d 70 61 74 68 27 20 | 62 79 5c 6e 64 65 66 61 |d-path' |by\ndefa|
|00000390| 75 6c 74 2e 22 20 3a 74 | 79 70 65 20 27 28 63 68 |ult." :t|ype '(ch|
|000003a0| 6f 69 63 65 20 28 63 6f | 6e 73 74 20 3a 74 61 67 |oice (co|nst :tag|
|000003b0| 20 22 55 73 65 20 60 6c | 6f 61 64 2d 70 61 74 68 | "Use `l|oad-path|
|000003c0| 27 22 20 6e 69 6c 29 20 | 28 72 65 70 65 61 74 20 |'" nil) |(repeat |
|000003d0| 3a 74 61 67 20 22 44 69 | 72 65 63 74 6f 72 69 65 |:tag "Di|rectorie|
|000003e0| 73 22 20 3a 6d 65 6e 75 | 2d 74 61 67 20 22 4c 69 |s" :menu|-tag "Li|
|000003f0| 73 74 22 20 3a 76 61 6c | 75 65 20 28 22 22 29 20 |st" :val|ue ("") |
|00000400| 64 69 72 65 63 74 6f 72 | 79 29 29 20 3a 67 72 6f |director|y)) :gro|
|00000410| 75 70 20 27 66 69 6e 64 | 2d 66 75 6e 63 74 69 6f |up 'find|-functio|
|00000420| 6e 29 0a 23 40 33 34 34 | 20 52 65 74 75 72 6e 73 |n).#@344| Returns|
|00000430| 20 61 20 70 61 69 72 20 | 60 28 62 75 66 66 65 72 | a pair |`(buffer|
|00000440| 20 2e 20 70 6f 69 6e 74 | 29 27 20 70 6f 69 6e 74 | . point|)' point|
|00000450| 69 6e 67 20 74 6f 20 74 | 68 65 20 64 65 66 69 6e |ing to t|he defin|
|00000460| 69 74 69 6f 6e 20 6f 66 | 20 46 55 4e 43 54 49 4f |ition of| FUNCTIO|
|00000470| 4e 2e 0a 0a 46 69 6e 64 | 73 20 74 68 65 20 45 6d |N...Find|s the Em|
|00000480| 61 63 73 20 4c 69 73 70 | 20 6c 69 62 72 61 72 79 |acs Lisp| library|
|00000490| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 74 68 65 20 | contain|ing the |
|000004a0| 64 65 66 69 6e 69 74 69 | 6f 6e 20 6f 66 20 46 55 |definiti|on of FU|
|000004b0| 4e 43 54 49 4f 4e 0a 69 | 6e 20 61 20 62 75 66 66 |NCTION.i|n a buff|
|000004c0| 65 72 20 61 6e 64 20 74 | 68 65 20 70 6f 69 6e 74 |er and t|he point|
|000004d0| 20 6f 66 20 74 68 65 20 | 64 65 66 69 6e 69 74 69 | of the |definiti|
|000004e0| 6f 6e 2e 20 20 54 68 65 | 20 62 75 66 66 65 72 20 |on.  The| buffer |
|000004f0| 69 73 0a 6e 6f 74 20 73 | 65 6c 65 63 74 65 64 2e |is.not s|elected.|
|00000500| 0a 0a 54 68 65 20 6c 69 | 62 72 61 72 79 20 77 68 |..The li|brary wh|
|00000510| 65 72 65 20 46 55 4e 43 | 54 49 4f 4e 20 69 73 20 |ere FUNC|TION is |
|00000520| 64 65 66 69 6e 65 64 20 | 69 73 20 73 65 61 72 63 |defined |is searc|
|00000530| 68 65 64 20 66 6f 72 20 | 69 6e 0a 60 66 69 6e 64 |hed for |in.`find|
|00000540| 2d 66 75 6e 63 74 69 6f | 6e 2d 73 6f 75 72 63 65 |-functio|n-source|
|00000550| 2d 70 61 74 68 27 2c 20 | 69 66 20 6e 6f 6e 20 60 |-path', |if non `|
|00000560| 6e 69 6c 27 2c 20 6f 74 | 68 65 72 77 69 73 65 20 |nil', ot|herwise |
|00000570| 69 6e 20 60 6c 6f 61 64 | 2d 70 61 74 68 27 2e 1f |in `load|-path'..|
|00000580| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 66 69 6e 64 |.(defali|as 'find|
|00000590| 2d 66 75 6e 63 74 69 6f | 6e 2d 6e 6f 73 65 6c 65 |-functio|n-nosele|
|000005a0| 63 74 20 23 5b 28 66 75 | 6e 63 74 69 6f 6e 29 20 |ct #[(fu|nction) |
|000005b0| 22 08 ac 84 c1 c2 21 88 | c3 08 4b 21 ab 85 c1 c4 |".....!.|..K!....|
|000005c0| 08 5c 22 88 08 4b c5 89 | 1e 06 1e 07 89 1e 08 39 |.\"..K..|.......9|
|000005d0| ab ab 0e 08 08 61 ac 9b | 0e 06 ab 8e 0e 06 c9 ca |.....a..|........|
|000005e0| cb 0e 08 21 5c 22 50 16 | 06 aa 89 c9 cc cb 0e 08 |...!\"P.|........|
|000005f0| 21 5c 22 16 06 08 4b 89 | 10 4b 89 16 08 aa 52 0e |!\"...K.|.K....R.|
|00000600| 06 ab 85 cd 0e 06 21 88 | 0e 08 a2 ce 61 ab 86 0e |......!.|....a...|
|00000610| 08 41 40 aa aa cf 08 21 | ae a5 d0 0e 08 21 ab 89 |.A@....!|.....!..|
|00000620| d1 0e 08 21 d2 d3 4f aa | 96 0e 08 a2 d4 61 ad 8f |...!..O.|.....a..|
|00000630| d0 0e 08 41 21 ad 88 d1 | 0e 08 41 21 d2 d3 4f 89 |...A!...|..A!..O.|
|00000640| 16 07 ac 87 c1 c9 d5 08 | 5c 22 21 88 d6 d7 0e 07 |........|\"!.....|
|00000650| 5c 22 ab 88 0e 07 d2 d8 | 94 4f 16 07 0e 19 1e 1a |\"......|.O......|
|00000660| db 0e 07 21 ab 84 0e 07 | aa a1 d6 dc 0e 07 5c 22 |...!....|......\"|
|00000670| ab 88 0e 07 d2 d8 94 4f | 16 07 dd 0e 07 de 50 df |.......O|......P.|
|00000680| 0e 1a 23 ae 87 dd 0e 07 | df 0e 1a 23 89 1e 20 ac |..#.....|...#.. .|
|00000690| 86 c1 e1 0e 07 5c 22 88 | 72 e2 0e 20 21 71 88 e3 |.....\".|r.. !q..|
|000006a0| 20 1e 24 e5 8e c9 e6 e7 | cb 08 21 21 5c 22 e8 20 | .$.....|..!!\". |
|000006b0| 1e 29 1e 2a eb 0e 2c 21 | 88 65 62 88 ed 0e 2a c5 |.).*..,!|.eb...*.|
|000006c0| df 23 eb 0e 29 21 88 ab | 88 d2 79 88 70 60 42 aa |.#..)!..|..y.p`B.|
|000006d0| 84 c1 ee 08 5c 22 2e 5c | 6e 87 22 20 5b 66 75 6e |....\".\|n." [fun|
|000006e0| 63 74 69 6f 6e 20 65 72 | 72 6f 72 20 22 59 6f 75 |ction er|ror "You|
|000006f0| 20 64 69 64 6e 27 74 20 | 73 70 65 63 69 66 79 20 | didn't |specify |
|00000700| 61 20 66 75 6e 63 74 69 | 6f 6e 22 20 73 75 62 72 |a functi|on" subr|
|00000710| 70 20 22 25 73 20 69 73 | 20 61 20 70 72 69 6d 69 |p "%s is| a primi|
|00000720| 74 69 76 65 20 66 75 6e | 63 74 69 6f 6e 22 20 6e |tive fun|ction" n|
|00000730| 69 6c 20 61 6c 69 61 73 | 65 73 20 6c 69 62 72 61 |il alias|es libra|
|00000740| 72 79 20 64 65 66 20 66 | 6f 72 6d 61 74 20 22 2c |ry def f|ormat ",|
|00000750| 20 77 68 69 63 68 20 69 | 73 20 61 6e 20 61 6c 69 | which i|s an ali|
|00000760| 61 73 20 66 6f 72 20 25 | 73 22 20 73 79 6d 62 6f |as for %|s" symbo|
|00000770| 6c 2d 6e 61 6d 65 20 22 | 61 6e 20 61 6c 69 61 73 |l-name "|an alias|
|00000780| 20 66 6f 72 20 25 73 22 | 20 6d 65 73 73 61 67 65 | for %s"| message|
|00000790| 20 61 75 74 6f 6c 6f 61 | 64 20 64 65 73 63 72 69 | autoloa|d descri|
|000007a0| 62 65 2d 66 75 6e 63 74 | 69 6f 6e 2d 66 69 6e 64 |be-funct|ion-find|
|000007b0| 2d 66 69 6c 65 20 63 6f | 6d 70 69 6c 65 64 2d 66 |-file co|mpiled-f|
|000007c0| 75 6e 63 74 69 6f 6e 2d | 70 20 63 6f 6d 70 69 6c |unction-|p compil|
|000007d0| 65 64 2d 66 75 6e 63 74 | 69 6f 6e 2d 61 6e 6e 6f |ed-funct|ion-anno|
|000007e0| 74 61 74 69 6f 6e 20 30 | 20 2d 34 20 6d 61 63 72 |tation 0| -4 macr|
|000007f0| 6f 20 22 44 6f 6e 27 74 | 20 6b 6e 6f 77 20 77 68 |o "Don't| know wh|
|00000800| 65 72 65 20 60 25 73 27 | 20 69 73 20 64 65 66 69 |ere `%s'| is defi|
|00000810| 6e 65 64 22 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |ned" str|ing-matc|
|00000820| 68 20 22 5c 5c 2e 65 6c | 5c 5c 28 63 5c 5c 29 5c |h "\\.el|\\(c\\)\|
|00000830| 5c 27 22 20 31 20 66 69 | 6e 64 2d 66 75 6e 63 74 |\'" 1 fi|nd-funct|
|00000840| 69 6f 6e 2d 73 6f 75 72 | 63 65 2d 70 61 74 68 20 |ion-sour|ce-path |
|00000850| 70 61 74 68 20 66 69 6c | 65 2d 65 78 69 73 74 73 |path fil|e-exists|
|00000860| 2d 70 20 22 5c 5c 28 5c | 5c 2e 65 6c 5c 5c 29 5c |-p "\\(\|\.el\\)\|
|00000870| 5c 27 22 20 6c 6f 63 61 | 74 65 2d 6c 69 62 72 61 |\'" loca|te-libra|
|00000880| 72 79 20 22 2e 65 6c 22 | 20 74 20 66 69 6c 65 6e |ry ".el"| t filen|
|00000890| 61 6d 65 20 22 54 68 65 | 20 6c 69 62 72 61 72 79 |ame "The| library|
|000008a0| 20 5c 22 25 73 5c 22 20 | 69 73 20 6e 6f 74 20 69 | \"%s\" |is not i|
|000008b0| 6e 20 74 68 65 20 70 61 | 74 68 2e 22 20 66 69 6e |n the pa|th." fin|
|000008c0| 64 2d 66 69 6c 65 2d 6e | 6f 73 65 6c 65 63 74 20 |d-file-n|oselect |
|000008d0| 6d 61 74 63 68 2d 64 61 | 74 61 20 6d 61 74 63 68 |match-da|ta match|
|000008e0| 2d 64 61 74 61 20 28 28 | 73 74 6f 72 65 2d 6d 61 |-data ((|store-ma|
|000008f0| 74 63 68 2d 64 61 74 61 | 20 6d 61 74 63 68 2d 64 |tch-data| match-d|
|00000900| 61 74 61 29 29 20 22 5e | 5c 5c 73 2d 2a 28 64 65 |ata)) "^|\\s-*(de|
|00000910| 66 5b 5e 63 67 76 57 5d | 5c 5c 77 2b 5c 5c 2a 3f |f[^cgvW]|\\w+\\*?|
|00000920| 5c 5c 73 2d 2b 25 73 5c | 5c 73 2d 22 20 72 65 67 |\\s-+%s\|\s-" reg|
|00000930| 65 78 70 2d 71 75 6f 74 | 65 20 73 79 6e 74 61 78 |exp-quot|e syntax|
|00000940| 2d 74 61 62 6c 65 20 73 | 79 6e 74 61 62 6c 65 20 |-table s|yntable |
|00000950| 72 65 67 65 78 70 20 73 | 65 74 2d 73 79 6e 74 61 |regexp s|et-synta|
|00000960| 78 2d 74 61 62 6c 65 20 | 65 6d 61 63 73 2d 6c 69 |x-table |emacs-li|
|00000970| 73 70 2d 6d 6f 64 65 2d | 73 79 6e 74 61 78 2d 74 |sp-mode-|syntax-t|
|00000980| 61 62 6c 65 20 72 65 2d | 73 65 61 72 63 68 2d 66 |able re-|search-f|
|00000990| 6f 72 77 61 72 64 20 22 | 43 61 6e 6e 6f 74 20 66 |orward "|Cannot f|
|000009a0| 69 6e 64 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 6f |ind defi|nition o|
|000009b0| 66 20 60 25 73 27 22 5d | 20 36 20 28 23 24 20 2e |f `%s'"]| 6 (#$ .|
|000009c0| 20 31 30 36 35 29 5d 29 | 0a 23 40 31 32 34 20 52 | 1065)])|.#@124 R|
|000009d0| 65 61 64 20 61 6e 64 20 | 72 65 74 75 72 6e 20 61 |ead and |return a|
|000009e0| 20 66 75 6e 63 74 69 6f | 6e 2c 20 64 65 66 61 75 | functio|n, defau|
|000009f0| 6c 74 69 6e 67 20 74 6f | 20 74 68 65 20 6f 6e 65 |lting to| the one|
|00000a00| 20 6e 65 61 72 20 70 6f | 69 6e 74 2e 0a 0a 60 66 | near po|int...`f|
|00000a10| 75 6e 63 74 69 6f 6e 2d | 61 74 2d 70 6f 69 6e 74 |unction-|at-point|
|00000a20| 27 20 69 73 20 75 73 65 | 64 20 74 6f 20 73 65 6c |' is use|d to sel|
|00000a30| 65 63 74 20 74 68 65 20 | 64 65 66 61 75 6c 74 20 |ect the |default |
|00000a40| 66 75 6e 63 74 69 6f 6e | 2e 1f 0a 28 64 65 66 61 |function|...(defa|
|00000a50| 6c 69 61 73 20 27 66 69 | 6e 64 2d 66 75 6e 63 74 |lias 'fi|nd-funct|
|00000a60| 69 6f 6e 2d 72 65 61 64 | 2d 66 75 6e 63 74 69 6f |ion-read|-functio|
|00000a70| 6e 20 23 5b 6e 69 6c 20 | 22 c0 20 c1 c2 1b 1c 1d |n #[nil |". .....|
|00000a80| c6 0d ab 86 c7 c8 0d 5c | 22 aa 81 c9 0e 5c 6e cb |.......\|"....\n.|
|00000a90| c1 c2 cc 26 06 89 13 cd | 6b ab 83 0d aa 83 ce 0b |...&....|k.......|
|00000aa0| 21 2b 43 87 22 20 5b 66 | 75 6e 63 74 69 6f 6e 2d |!+C." [f|unction-|
|00000ab0| 61 74 2d 70 6f 69 6e 74 | 20 74 20 6e 69 6c 20 76 |at-point| t nil v|
|00000ac0| 61 6c 20 65 6e 61 62 6c | 65 2d 72 65 63 75 72 73 |al enabl|e-recurs|
|00000ad0| 69 76 65 2d 6d 69 6e 69 | 62 75 66 66 65 72 73 20 |ive-mini|buffers |
|00000ae0| 66 6e 20 63 6f 6d 70 6c | 65 74 69 6e 67 2d 72 65 |fn compl|eting-re|
|00000af0| 61 64 20 66 6f 72 6d 61 | 74 20 22 46 69 6e 64 20 |ad forma|t "Find |
|00000b00| 66 75 6e 63 74 69 6f 6e | 20 28 64 65 66 61 75 6c |function| (defaul|
|00000b10| 74 20 25 73 29 3a 20 22 | 20 22 46 69 6e 64 20 66 |t %s): "| "Find f|
|00000b20| 75 6e 63 74 69 6f 6e 3a | 20 22 20 6f 62 61 72 72 |unction:| " obarr|
|00000b30| 61 79 20 66 62 6f 75 6e | 64 70 20 66 75 6e 63 74 |ay fboun|dp funct|
|00000b40| 69 6f 6e 2d 68 69 73 74 | 6f 72 79 20 22 22 20 69 |ion-hist|ory "" i|
|00000b50| 6e 74 65 72 6e 5d 20 38 | 20 28 23 24 20 2e 20 32 |ntern] 8| (#$ . 2|
|00000b60| 35 31 31 29 5d 29 0a 23 | 40 31 33 35 20 46 69 6e |511)]).#|@135 Fin|
|00000b70| 64 20 45 6d 61 63 73 20 | 4c 69 73 70 20 46 55 4e |d Emacs |Lisp FUN|
|00000b80| 43 54 49 4f 4e 20 69 6e | 20 61 20 62 75 66 66 65 |CTION in| a buffe|
|00000b90| 72 20 61 6e 64 20 64 69 | 73 70 6c 61 79 20 69 74 |r and di|splay it|
|00000ba0| 20 77 69 74 68 20 53 57 | 49 54 43 48 2d 46 4e 2e | with SW|ITCH-FN.|
|00000bb0| 0a 50 6f 69 6e 74 20 69 | 73 20 73 61 76 65 64 20 |.Point i|s saved |
|00000bc0| 69 6e 20 74 68 65 20 62 | 75 66 66 65 72 20 69 66 |in the b|uffer if|
|00000bd0| 20 69 74 20 69 73 20 6f | 6e 65 20 6f 66 20 74 68 | it is o|ne of th|
|00000be0| 65 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |e curren|t buffer|
|00000bf0| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 |s...(def|alias 'f|
|00000c00| 69 6e 64 2d 66 75 6e 63 | 74 69 6f 6e 2d 64 6f 2d |ind-func|tion-do-|
|00000c10| 69 74 20 23 5b 28 66 75 | 6e 63 74 69 6f 6e 20 73 |it #[(fu|nction s|
|00000c20| 77 69 74 63 68 2d 66 6e | 29 20 22 60 c0 20 c1 5c |witch-fn|) "`. .\|
|00000c30| 6e 21 1b 1c 1d 0b ad 97 | 0e 06 0b 40 21 88 0b 40 |n!......|...@!..@|
|00000c40| 0c 73 ab 84 c7 0d 21 88 | 0b 41 62 88 c8 c9 21 2b |.s....!.|.Ab...!+|
|00000c50| 87 22 20 5b 62 75 66 66 | 65 72 2d 6c 69 73 74 20 |." [buff|er-list |
|00000c60| 66 69 6e 64 2d 66 75 6e | 63 74 69 6f 6e 2d 6e 6f |find-fun|ction-no|
|00000c70| 73 65 6c 65 63 74 20 66 | 75 6e 63 74 69 6f 6e 20 |select f|unction |
|00000c80| 62 75 66 66 65 72 2d 70 | 6f 69 6e 74 20 6f 72 69 |buffer-p|oint ori|
|00000c90| 67 2d 62 75 66 66 65 72 | 73 20 6f 72 69 67 2d 70 |g-buffer|s orig-p|
|00000ca0| 6f 69 6e 74 20 73 77 69 | 74 63 68 2d 66 6e 20 70 |oint swi|tch-fn p|
|00000cb0| 75 73 68 2d 6d 61 72 6b | 20 72 65 63 65 6e 74 65 |ush-mark| recente|
|00000cc0| 72 20 30 5d 20 34 20 28 | 23 24 20 2e 20 32 39 32 |r 0] 4 (|#$ . 292|
|00000cd0| 35 29 5d 29 0a 23 40 34 | 33 34 20 46 69 6e 64 20 |5)]).#@4|34 Find |
|00000ce0| 74 68 65 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 6f |the defi|nition o|
|00000cf0| 66 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 20 6e |f the fu|nction n|
|00000d00| 65 61 72 20 70 6f 69 6e | 74 20 69 6e 20 74 68 65 |ear poin|t in the|
|00000d10| 20 63 75 72 72 65 6e 74 | 20 77 69 6e 64 6f 77 2e | current| window.|
|00000d20| 0a 0a 46 69 6e 64 73 20 | 74 68 65 20 45 6d 61 63 |..Finds |the Emac|
|00000d30| 73 20 4c 69 73 70 20 6c | 69 62 72 61 72 79 20 63 |s Lisp l|ibrary c|
|00000d40| 6f 6e 74 61 69 6e 69 6e | 67 20 74 68 65 20 64 65 |ontainin|g the de|
|00000d50| 66 69 6e 69 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |finition| of the |
|00000d60| 66 75 6e 63 74 69 6f 6e | 0a 6e 65 61 72 20 70 6f |function|.near po|
|00000d70| 69 6e 74 20 28 73 65 6c | 65 63 74 65 64 20 62 79 |int (sel|ected by|
|00000d80| 20 60 66 75 6e 63 74 69 | 6f 6e 2d 61 74 2d 70 6f | `functi|on-at-po|
|00000d90| 69 6e 74 27 29 20 69 6e | 20 61 20 62 75 66 66 65 |int') in| a buffe|
|00000da0| 72 20 61 6e 64 0a 70 6c | 61 63 65 73 20 70 6f 69 |r and.pl|aces poi|
|00000db0| 6e 74 20 62 65 66 6f 72 | 65 20 74 68 65 20 64 65 |nt befor|e the de|
|00000dc0| 66 69 6e 69 74 69 6f 6e | 2e 20 20 50 6f 69 6e 74 |finition|.  Point|
|00000dd0| 20 69 73 20 73 61 76 65 | 64 20 69 6e 20 74 68 65 | is save|d in the|
|00000de0| 20 62 75 66 66 65 72 20 | 69 66 0a 69 74 20 69 73 | buffer |if.it is|
|00000df0| 20 6f 6e 65 20 6f 66 20 | 74 68 65 20 63 75 72 72 | one of |the curr|
|00000e00| 65 6e 74 20 62 75 66 66 | 65 72 73 2e 0a 0a 54 68 |ent buff|ers...Th|
|00000e10| 65 20 6c 69 62 72 61 72 | 79 20 77 68 65 72 65 20 |e librar|y where |
|00000e20| 46 55 4e 43 54 49 4f 4e | 20 69 73 20 64 65 66 69 |FUNCTION| is defi|
|00000e30| 6e 65 64 20 69 73 20 73 | 65 61 72 63 68 65 64 20 |ned is s|earched |
|00000e40| 66 6f 72 20 69 6e 0a 60 | 66 69 6e 64 2d 66 75 6e |for in.`|find-fun|
|00000e50| 63 74 69 6f 6e 2d 73 6f | 75 72 63 65 2d 70 61 74 |ction-so|urce-pat|
|00000e60| 68 27 2c 20 69 66 20 6e | 6f 6e 20 60 6e 69 6c 27 |h', if n|on `nil'|
|00000e70| 2c 20 6f 74 68 65 72 77 | 69 73 65 20 69 6e 20 60 |, otherw|ise in `|
|00000e80| 6c 6f 61 64 2d 70 61 74 | 68 27 2e 1f 0a 28 64 65 |load-pat|h'...(de|
|00000e90| 66 61 6c 69 61 73 20 27 | 66 69 6e 64 2d 66 75 6e |falias '|find-fun|
|00000ea0| 63 74 69 6f 6e 20 23 5b | 28 66 75 6e 63 74 69 6f |ction #[|(functio|
|00000eb0| 6e 29 20 22 c0 09 c2 5c | 22 87 22 20 5b 66 69 6e |n) "...\|"." [fin|
|00000ec0| 64 2d 66 75 6e 63 74 69 | 6f 6e 2d 64 6f 2d 69 74 |d-functi|on-do-it|
|00000ed0| 20 66 75 6e 63 74 69 6f | 6e 20 73 77 69 74 63 68 | functio|n switch|
|00000ee0| 2d 74 6f 2d 62 75 66 66 | 65 72 5d 20 33 20 28 23 |-to-buff|er] 3 (#|
|00000ef0| 24 20 2e 20 33 32 39 31 | 29 20 28 66 69 6e 64 2d |$ . 3291|) (find-|
|00000f00| 66 75 6e 63 74 69 6f 6e | 2d 72 65 61 64 2d 66 75 |function|-read-fu|
|00000f10| 6e 63 74 69 6f 6e 29 5d | 29 0a 23 40 34 33 32 20 |nction)]|).#@432 |
|00000f20| 46 69 6e 64 20 74 68 65 | 20 64 65 66 69 6e 69 74 |Find the| definit|
|00000f30| 69 6f 6e 20 6f 66 20 74 | 68 65 20 66 75 6e 63 74 |ion of t|he funct|
|00000f40| 69 6f 6e 20 6e 65 61 72 | 20 70 6f 69 6e 74 20 69 |ion near| point i|
|00000f50| 6e 20 74 68 65 20 6f 74 | 68 65 72 20 77 69 6e 64 |n the ot|her wind|
|00000f60| 6f 77 2e 0a 0a 46 69 6e | 64 73 20 74 68 65 20 45 |ow...Fin|ds the E|
|00000f70| 6d 61 63 73 20 4c 69 73 | 70 20 6c 69 62 72 61 72 |macs Lis|p librar|
|00000f80| 79 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 74 68 65 |y contai|ning the|
|00000f90| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 6f 66 20 74 | definit|ion of t|
|00000fa0| 68 65 20 66 75 6e 63 74 | 69 6f 6e 0a 6e 65 61 72 |he funct|ion.near|
|00000fb0| 20 70 6f 69 6e 74 20 28 | 73 65 6c 65 63 74 65 64 | point (|selected|
|00000fc0| 20 62 79 20 60 66 75 6e | 63 74 69 6f 6e 2d 61 74 | by `fun|ction-at|
|00000fd0| 2d 70 6f 69 6e 74 27 29 | 20 69 6e 20 61 20 62 75 |-point')| in a bu|
|00000fe0| 66 66 65 72 20 61 6e 64 | 0a 70 6c 61 63 65 73 20 |ffer and|.places |
|00000ff0| 70 6f 69 6e 74 20 62 65 | 66 6f 72 65 20 74 68 65 |point be|fore the|
|00001000| 20 64 65 66 69 6e 69 74 | 69 6f 6e 2e 20 20 50 6f | definit|ion.  Po|
|00001010| 69 6e 74 20 69 73 20 73 | 61 76 65 64 20 69 6e 20 |int is s|aved in |
|00001020| 74 68 65 20 62 75 66 66 | 65 72 20 69 66 0a 69 74 |the buff|er if.it|
|00001030| 20 69 73 20 6f 6e 65 20 | 6f 66 20 74 68 65 20 63 | is one |of the c|
|00001040| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 73 2e 0a |urrent b|uffers..|
|00001050| 0a 54 68 65 20 6c 69 62 | 72 61 72 79 20 77 68 65 |.The lib|rary whe|
|00001060| 72 65 20 46 55 4e 43 54 | 49 4f 4e 20 69 73 20 64 |re FUNCT|ION is d|
|00001070| 65 66 69 6e 65 64 20 69 | 73 20 73 65 61 72 63 68 |efined i|s search|
|00001080| 65 64 20 66 6f 72 20 69 | 6e 0a 60 66 69 6e 64 2d |ed for i|n.`find-|
|00001090| 66 75 6e 63 74 69 6f 6e | 2d 73 6f 75 72 63 65 2d |function|-source-|
|000010a0| 70 61 74 68 27 2c 20 69 | 66 20 6e 6f 6e 20 60 6e |path', i|f non `n|
|000010b0| 69 6c 27 2c 20 6f 74 68 | 65 72 77 69 73 65 20 69 |il', oth|erwise i|
|000010c0| 6e 20 60 6c 6f 61 64 2d | 70 61 74 68 27 2e 1f 0a |n `load-|path'...|
|000010d0| 28 64 65 66 61 6c 69 61 | 73 20 27 66 69 6e 64 2d |(defalia|s 'find-|
|000010e0| 66 75 6e 63 74 69 6f 6e | 2d 6f 74 68 65 72 2d 77 |function|-other-w|
|000010f0| 69 6e 64 6f 77 20 23 5b | 28 66 75 6e 63 74 69 6f |indow #[|(functio|
|00001100| 6e 29 20 22 c0 09 c2 5c | 22 87 22 20 5b 66 69 6e |n) "...\|"." [fin|
|00001110| 64 2d 66 75 6e 63 74 69 | 6f 6e 2d 64 6f 2d 69 74 |d-functi|on-do-it|
|00001120| 20 66 75 6e 63 74 69 6f | 6e 20 73 77 69 74 63 68 | functio|n switch|
|00001130| 2d 74 6f 2d 62 75 66 66 | 65 72 2d 6f 74 68 65 72 |-to-buff|er-other|
|00001140| 2d 77 69 6e 64 6f 77 5d | 20 33 20 28 23 24 20 2e |-window]| 3 (#$ .|
|00001150| 20 33 38 37 32 29 20 28 | 66 69 6e 64 2d 66 75 6e | 3872) (|find-fun|
|00001160| 63 74 69 6f 6e 2d 72 65 | 61 64 2d 66 75 6e 63 74 |ction-re|ad-funct|
|00001170| 69 6f 6e 29 5d 29 0a 23 | 40 34 33 33 20 46 69 6e |ion)]).#|@433 Fin|
|00001180| 64 20 74 68 65 20 64 65 | 66 69 6e 69 74 69 6f 6e |d the de|finition|
|00001190| 20 6f 66 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e | of the |function|
|000011a0| 20 6e 65 61 72 20 70 6f | 69 6e 74 20 69 6e 20 74 | near po|int in t|
|000011b0| 68 65 20 61 6e 6f 74 68 | 65 72 20 66 72 61 6d 65 |he anoth|er frame|
|000011c0| 2e 0a 0a 46 69 6e 64 73 | 20 74 68 65 20 45 6d 61 |...Finds| the Ema|
|000011d0| 63 73 20 4c 69 73 70 20 | 6c 69 62 72 61 72 79 20 |cs Lisp |library |
|000011e0| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 74 68 65 20 64 |containi|ng the d|
|000011f0| 65 66 69 6e 69 74 69 6f | 6e 20 6f 66 20 74 68 65 |efinitio|n of the|
|00001200| 20 66 75 6e 63 74 69 6f | 6e 0a 6e 65 61 72 20 70 | functio|n.near p|
|00001210| 6f 69 6e 74 20 28 73 65 | 6c 65 63 74 65 64 20 62 |oint (se|lected b|
|00001220| 79 20 60 66 75 6e 63 74 | 69 6f 6e 2d 61 74 2d 70 |y `funct|ion-at-p|
|00001230| 6f 69 6e 74 27 29 20 69 | 6e 20 61 20 62 75 66 66 |oint') i|n a buff|
|00001240| 65 72 20 61 6e 64 0a 70 | 6c 61 63 65 73 20 70 6f |er and.p|laces po|
|00001250| 69 6e 74 20 62 65 66 6f | 72 65 20 74 68 65 20 64 |int befo|re the d|
|00001260| 65 66 69 6e 69 74 69 6f | 6e 2e 20 20 50 6f 69 6e |efinitio|n.  Poin|
|00001270| 74 20 69 73 20 73 61 76 | 65 64 20 69 6e 20 74 68 |t is sav|ed in th|
|00001280| 65 20 62 75 66 66 65 72 | 20 69 66 0a 69 74 20 69 |e buffer| if.it i|
|00001290| 73 20 6f 6e 65 20 6f 66 | 20 74 68 65 20 63 75 72 |s one of| the cur|
|000012a0| 72 65 6e 74 20 62 75 66 | 66 65 72 73 2e 0a 0a 54 |rent buf|fers...T|
|000012b0| 68 65 20 6c 69 62 72 61 | 72 79 20 77 68 65 72 65 |he libra|ry where|
|000012c0| 20 46 55 4e 43 54 49 4f | 4e 20 69 73 20 64 65 66 | FUNCTIO|N is def|
|000012d0| 69 6e 65 64 20 69 73 20 | 73 65 61 72 63 68 65 64 |ined is |searched|
|000012e0| 20 66 6f 72 20 69 6e 0a | 60 66 69 6e 64 2d 66 75 | for in.|`find-fu|
|000012f0| 6e 63 74 69 6f 6e 2d 73 | 6f 75 72 63 65 2d 70 61 |nction-s|ource-pa|
|00001300| 74 68 27 2c 20 69 66 20 | 6e 6f 6e 20 60 6e 69 6c |th', if |non `nil|
|00001310| 27 2c 20 6f 74 68 65 72 | 77 69 73 65 20 69 6e 20 |', other|wise in |
|00001320| 60 6c 6f 61 64 2d 70 61 | 74 68 27 2e 1f 0a 28 64 |`load-pa|th'...(d|
|00001330| 65 66 61 6c 69 61 73 20 | 27 66 69 6e 64 2d 66 75 |efalias |'find-fu|
|00001340| 6e 63 74 69 6f 6e 2d 6f | 74 68 65 72 2d 66 72 61 |nction-o|ther-fra|
|00001350| 6d 65 20 23 5b 28 66 75 | 6e 63 74 69 6f 6e 29 20 |me #[(fu|nction) |
|00001360| 22 c0 09 c2 5c 22 87 22 | 20 5b 66 69 6e 64 2d 66 |"...\"."| [find-f|
|00001370| 75 6e 63 74 69 6f 6e 2d | 64 6f 2d 69 74 20 66 75 |unction-|do-it fu|
|00001380| 6e 63 74 69 6f 6e 20 73 | 77 69 74 63 68 2d 74 6f |nction s|witch-to|
|00001390| 2d 62 75 66 66 65 72 2d | 6f 74 68 65 72 2d 66 72 |-buffer-|other-fr|
|000013a0| 61 6d 65 5d 20 33 20 28 | 23 24 20 2e 20 34 34 37 |ame] 3 (|#$ . 447|
|000013b0| 37 29 20 28 66 69 6e 64 | 2d 66 75 6e 63 74 69 6f |7) (find|-functio|
|000013c0| 6e 2d 72 65 61 64 2d 66 | 75 6e 63 74 69 6f 6e 29 |n-read-f|unction)|
|000013d0| 5d 29 0a 23 40 31 30 38 | 20 46 69 6e 64 20 74 68 |]).#@108| Find th|
|000013e0| 65 20 66 75 6e 63 74 69 | 6f 6e 20 74 68 61 74 20 |e functi|on that |
|000013f0| 4b 45 59 20 69 6e 76 6f | 6b 65 73 2e 20 20 4b 45 |KEY invo|kes.  KE|
|00001400| 59 20 69 73 20 61 20 73 | 74 72 69 6e 67 2e 0a 50 |Y is a s|tring..P|
|00001410| 6f 69 6e 74 20 69 73 20 | 73 61 76 65 64 20 69 66 |oint is |saved if|
|00001420| 20 46 55 4e 43 54 49 4f | 4e 20 69 73 20 69 6e 20 | FUNCTIO|N is in |
|00001430| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00001440| 65 72 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |er...(de|falias '|
|00001450| 66 69 6e 64 2d 66 75 6e | 63 74 69 6f 6e 2d 6f 6e |find-fun|ction-on|
|00001460| 2d 6b 65 79 20 23 5b 28 | 6b 65 79 29 20 22 c0 09 |-key #[(|key) "..|
|00001470| 21 89 1a ab 84 5c 6e a8 | ab 88 c3 c4 c5 09 21 5c |!....\n.|......!\|
|00001480| 22 aa 95 5c 6e 3a ab 8e | 5c 6e a2 c6 61 ac 88 c3 |"..\n:..|\n..a...|
|00001490| c7 c8 5c 6e 21 5c 22 aa | 83 c9 5c 6e 21 29 87 22 |..\n!\".|..\n!)."|
|000014a0| 20 5b 6b 65 79 2d 6f 72 | 2d 6d 65 6e 75 2d 62 69 | [key-or|-menu-bi|
|000014b0| 6e 64 69 6e 67 20 6b 65 | 79 20 64 65 66 6e 20 6d |nding ke|y defn m|
|000014c0| 65 73 73 61 67 65 20 22 | 25 73 20 69 73 20 75 6e |essage "|%s is un|
|000014d0| 64 65 66 69 6e 65 64 22 | 20 6b 65 79 2d 64 65 73 |defined"| key-des|
|000014e0| 63 72 69 70 74 69 6f 6e | 20 6c 61 6d 62 64 61 20 |cription| lambda |
|000014f0| 22 72 75 6e 73 20 25 73 | 22 20 70 72 69 6e 31 2d |"runs %s|" prin1-|
|00001500| 74 6f 2d 73 74 72 69 6e | 67 20 66 69 6e 64 2d 66 |to-strin|g find-f|
|00001510| 75 6e 63 74 69 6f 6e 2d | 6f 74 68 65 72 2d 77 69 |unction-|other-wi|
|00001520| 6e 64 6f 77 5d 20 35 20 | 28 23 24 20 2e 20 35 30 |ndow] 5 |(#$ . 50|
|00001530| 38 31 29 20 22 6b 46 69 | 6e 64 20 66 75 6e 63 74 |81) "kFi|nd funct|
|00001540| 69 6f 6e 20 6f 6e 20 6b | 65 79 3a 20 22 5d 29 0a |ion on k|ey: "]).|
|00001550| 23 40 35 38 20 46 69 6e | 64 20 64 69 72 65 63 74 |#@58 Fin|d direct|
|00001560| 6c 79 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 20 |ly the f|unction |
|00001570| 61 74 20 70 6f 69 6e 74 | 20 69 6e 20 74 68 65 20 |at point| in the |
|00001580| 6f 74 68 65 72 20 77 69 | 6e 64 6f 77 2e 1f 0a 28 |other wi|ndow...(|
|00001590| 64 65 66 61 6c 69 61 73 | 20 27 66 69 6e 64 2d 66 |defalias| 'find-f|
|000015a0| 75 6e 63 74 69 6f 6e 2d | 61 74 2d 70 6f 69 6e 74 |unction-|at-point|
|000015b0| 20 23 5b 6e 69 6c 20 22 | c0 20 89 19 ad 83 c2 09 | #[nil "|. ......|
|000015c0| 21 29 87 22 20 5b 66 75 | 6e 63 74 69 6f 6e 2d 61 |!)." [fu|nction-a|
|000015d0| 74 2d 70 6f 69 6e 74 20 | 73 79 6d 62 20 66 69 6e |t-point |symb fin|
|000015e0| 64 2d 66 75 6e 63 74 69 | 6f 6e 2d 6f 74 68 65 72 |d-functi|on-other|
|000015f0| 2d 77 69 6e 64 6f 77 5d | 20 33 20 28 23 24 20 2e |-window]| 3 (#$ .|
|00001600| 20 35 34 36 31 29 20 6e | 69 6c 5d 29 0a 28 62 79 | 5461) n|il]).(by|
|00001610| 74 65 2d 63 6f 64 65 20 | 22 c0 09 c2 c3 23 88 c0 |te-code |"....#..|
|00001620| 0c c2 c5 23 88 c0 0e 06 | c7 c8 23 88 c9 ca 21 87 |...#....|..#...!.|
|00001630| 22 20 5b 64 65 66 69 6e | 65 2d 6b 65 79 20 63 74 |" [defin|e-key ct|
|00001640| 6c 2d 78 2d 34 2d 6d 61 | 70 20 22 46 22 20 66 69 |l-x-4-ma|p "F" fi|
|00001650| 6e 64 2d 66 75 6e 63 74 | 69 6f 6e 2d 6f 74 68 65 |nd-funct|ion-othe|
|00001660| 72 2d 77 69 6e 64 6f 77 | 20 63 74 6c 2d 78 2d 35 |r-window| ctl-x-5|
|00001670| 2d 6d 61 70 20 66 69 6e | 64 2d 66 75 6e 63 74 69 |-map fin|d-functi|
|00001680| 6f 6e 2d 6f 74 68 65 72 | 2d 66 72 61 6d 65 20 63 |on-other|-frame c|
|00001690| 74 6c 2d 78 2d 6d 61 70 | 20 22 4b 22 20 66 69 6e |tl-x-map| "K" fin|
|000016a0| 64 2d 66 75 6e 63 74 69 | 6f 6e 2d 6f 6e 2d 6b 65 |d-functi|on-on-ke|
|000016b0| 79 20 70 72 6f 76 69 64 | 65 20 66 69 6e 64 2d 66 |y provid|e find-f|
|000016c0| 75 6e 63 5d 20 34 29 0a |                         |unc] 4).|        |
+--------+-------------------------+-------------------------+--------+--------+